home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / game / misc / Wtw_1.lha / Install < prev    next >
Text File  |  1992-05-08  |  2KB  |  82 lines
  1. ;;
  2. ;;  Wålly the Wörrm HDInstall
  3. ;;  
  4.  
  5. (complete 0)
  6.  
  7. (set wtw-dest
  8. (askdir
  9.      (prompt "In which disk or drawer should the Wålly the Wörrm "
  10.           "drawer be created?")
  11.      (help
  12.           "The installation utility will create a drawer named"
  13.           " \"WTW\" in this directory. All Wålly the Wörrm\ files"
  14.           " will be placed in that directory.\n\n"
  15.           "The selected directory must have about 1.1Mb free storage"
  16.           " left.\n\n"
  17.      )
  18.      (default @default-dest)
  19.      )
  20. )
  21.  
  22. (makedir (tackon wtw-dest "WTW") (infos))
  23. (set wtw-dest (tackon wtw-dest "WTW"))
  24. (set @default-dest wtw-dest)
  25. (set old_level @user-level)
  26.  
  27. (askdisk
  28.      (prompt "Please insert WTW \"Disk 1\"")
  29.      (help "")
  30.      (dest "WTW1" )
  31. )
  32.  
  33. (set @execute-dir wtw-dest)
  34.  
  35. (working "Installing Wålly the Wörrm disk 1")
  36.      (copyfiles
  37.      (source "WTW1:")
  38.      (dest wtw-dest)
  39.      (pattern "(wtw#?|DATA.#?)")
  40. )
  41.  
  42. (complete 40)
  43. (working "Installing needed libraries....")
  44. (user old_level)
  45.      (copylib
  46.           (prompt "Installing AMOS.Library")
  47.           (help @copylib-help)
  48.           (source "WTW1:Libs/AMOS.Library")
  49.           (dest "LIBS:")
  50.           (confirm)
  51. )
  52. (user old_level)
  53.      (copylib
  54.           (prompt "Installing medplayer.library")
  55.           (help @copylib-help)
  56.           (source "WTW1:Libs/medplayer.library")
  57.           (dest "LIBS:")
  58.           (confirm)
  59. )
  60.  
  61. (complete 60)
  62.           
  63. (askdisk
  64.      (prompt "Please insert WTW \"Disk 2\"")
  65.      (help "")
  66.      (dest "WTW2" )
  67. )
  68.  
  69. (set @execute-dir wtw-dest)
  70.  
  71. (working "Installing Wålly the Wörrm disk 2")
  72.      (copyfiles
  73.      (source "WTW2:")
  74.      (dest wtw-dest)
  75.      (pattern "(DATA.#?|HI#?)")
  76. )
  77.  
  78. (complete 100)
  79.  
  80. (exit)
  81.  
  82.